: DRAW* ( n -- ) \ 画一个正方形
	DUP DUP *
	0
	DO
		I OVER MOD
		0= IF
			CR
		THEN ."  *"
	LOOP
	DROP
;

\ 冒泡排序
: BUBBLE_SORT ( n1 n2 n3 n4 n5 n6 n7 n8 n9 n10 -- ) { \ A -- } 
	10 CELLS LOCALALLOC: A
	10 0 DO
		A I CELLS + !
	LOOP
	10 0 DO
		9 0 DO
			A I CELLS + @
			A I 1 + CELLS + @
			> IF
				A I 1 + CELLS + @
				A I CELLS + @ A I 1 + CELLS + !
				A I CELLS + !
			THEN
		LOOP
	LOOP
	CR 10 0 DO
		A I CELLS + ?
	LOOP
;
